home *** CD-ROM | disk | FTP | other *** search
- /*
- * Eingabe.rexx
- * Beispiel-ARexx-Skript zu TurboBase © Michael Friedrich
- *
- *
- *
- */
-
- /* Failat auf 11 setzen, da TurboBase bei Klick auf <Abbruch> den
- Wert 10 zurückliefert!
- */
- Options FailAt 11
- /* Dies wird benötigt, um das Ergebnis von EINGABE in RESULT zurück-
- zuerhalten */
- Options Results
-
- /* Wir wollen mit TurboBase kommunizieren */
- ADDRESS TBASE
-
-
- REQPARA 10 10 /* Fenster an Position 10,10 */
- 'message "Dies ist ein ARexx-Beispiel" "Beispiel 1"'
-
- REQPARA OK Ja Abbruch Nein
- 'request "Wollen Sie das Beispiel fortsetzen?" "Beispiel 2"'
-
- /* Hat Benutzer auf <Abbruch> gedrückt ??? */
- IF rc~=0 then exit
-
- 'EINGABE "Geben Sie einen Text ein" "Beispiel 3"'
-
- if rc==0 then say "Sie haben '"RESULT||"' eingegeben"
-
-